home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / util / blank / madhouse.lha / Madhouse / developer / AMOS-Demo / AMOSDemo.asc < prev    next >
Text File  |  1995-02-24  |  4KB  |  121 lines
  1. '¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡- 
  2. '
  3. '                WICHTIGE HINWEISE F▄R AMOS-PROGRAMMIERER !
  4. '
  5. 'Die Procedures "_ENDE" und "_FEHLER" lassen sich in jedem Blanker verwenden,
  6. 'um die von MADHOUSE ben÷tigten Dateien zu erzeugen. 
  7. '
  8. 'Um diesen Blanker compilierfΣhig zu machen, mⁿssen alle die Textstellen   
  9. 'dekommentiert werden, hinter denen sich unmittelbar ein AMOS-Befehl befindet. 
  10. 'Weiterhin sollte dann auch der Befehl "Edit" in der Procedure "_ENDE" ent-
  11. 'fernt werden. Wer will, der kann auch die vorgegebenen Parameter in der 
  12. 'Parameterabfrage (die vier Befehle nach "Else") l÷schen, da der Blanker bei 
  13. 'der fehlenden "Prefs"-Datei sowieso aussteigt.
  14. '
  15. 'WICHTIG!!!
  16. 'Die passenden AMOSPro_Compiler Einstellungen solltet, mⁿsst ihr zwangslΣufig  
  17. 'aus unserer mitgelieferten Einstellung "AMOSPro_Compiler_Config" entnehmen. 
  18. 'Diese Datei einfach mit "LoadConfig" in der "CompilerShell" laden, fertig.  
  19. 'Die Datei befindet sich ⁿbrigens im "/Developer/AMOSDemo/"-Verzeichnis. 
  20. '
  21. '                                   der total verbl÷dete AMOSPro-Programmierer 
  22. '----------------------------------------------------------------------------- 
  23.  
  24. '¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡   
  25. '¡                                                                           ¡   
  26. '¡                                AMOS DEMO                                  ¡     
  27. '¡                                                                           ¡   
  28. '¡                Version 1.0  by Aicke Schulz  24.02.1995                   ¡       
  29. '¡                                                                           ¡   
  30. '¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡   
  31.  
  32.  
  33. '¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡   
  34. '¡                                Parameter                                  ¡ 
  35. '¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡     
  36.  
  37. If Exist("Ram:Madhouse_Storage/Prefs")
  38.    Open In 1,"Ram:Madhouse_Storage/Prefs"
  39.    Input #1,DEMOTEXT$
  40.    Input #1,FARBE
  41.    Input #1,BEWEGEN
  42.    Input #1,DAUER
  43.    Close 1
  44. Else 
  45.    DEMOTEXT$="$Hi, das ist ein Demotext des AMOSDemo-Beispielblankers von MADHOUSE."
  46.    FARBE=2
  47.    BEWEGEN=1
  48.    DAUER=1
  49.    'System  
  50. End If 
  51.  
  52. DEMOTEXT$=Mid$(DEMOTEXT$,2)
  53.  
  54. '¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡   
  55. '¡                              Vorbereitungen                               ¡ 
  56. '¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡   
  57.  
  58. 'Break Off 
  59. Request Wb 
  60. Set Sprite Buffer 16
  61. 'On Error Proc _FEHLER 
  62.  
  63. Screen Open 0,640,8,2,Hires
  64. Flash Off : Curs Off : Hide 
  65.  
  66. If FARBE=0 : Palette $0,$FF0
  67. Else If FARBE=1 : Palette $0,$F00
  68. Else If FARBE=2 : Palette $0,$F
  69. End If 
  70.  
  71. GESCHWINDIGKEIT=1
  72.  
  73. Centre DEMOTEXT$
  74.  
  75. 'Amos Lock 
  76. MEIN_TIMER=Timer
  77.  
  78. '¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡   
  79. '¡                              Hauptschleife                                ¡ 
  80. '¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡   
  81.  
  82. Do 
  83.    If BEWEGEN=1
  84.       Add Y_BILDSCHIRM,GESCHWINDIGKEIT
  85.       If Y_BILDSCHIRM>240 or Y_BILDSCHIRM<0
  86.          GESCHWINDIGKEIT=-GESCHWINDIGKEIT
  87.       End If 
  88.    End If 
  89.    
  90.    Screen Display 0,128,Y_BILDSCHIRM+50,,
  91.    
  92.    Multi Wait 
  93.    If Mouse Key<>0 or Inkey$<>"" : _ENDE[1]
  94. Else If DAUER>0 and(Timer-MEIN_TIMER)/3000=DAUER : _ENDE[0] : End If 
  95. Loop 
  96.  
  97. '¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡   
  98. '¡                               Proceduren                                  ¡ 
  99. '¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡   
  100.  
  101. Procedure _ENDE[ART]
  102.    
  103.    'If ART=1 Then Open Out 1,"Ram:Madhouse_Storage/Stopblank" 
  104.    'System
  105.    Edit 
  106.    
  107. End Proc
  108. Procedure _FEHLER
  109.    
  110.    If Errn=24 : FEHLER$="OUT OF MEMORY."
  111.    Else FEHLER$="AMOSPro error number:"+Str$(Errn)+" (see the doc!)"
  112.    End If 
  113.    
  114.    Append 1,"Ram:Madhouse_Storage/Errors"
  115.    Print #1,FEHLER$
  116.    Close 1
  117.    
  118.    _ENDE[0]
  119.    
  120. End Proc
  121.